home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / debian_DSA-658.nasl < prev    next >
Text File  |  2005-03-31  |  2KB  |  59 lines
  1. # This script was automatically generated from the dsa-658
  2. # Debian Security Advisory
  3. # It is released under the Nessus Script Licence.
  4. # Advisory is copyright 1997-2004 Software in the Public Interest, Inc.
  5. # See http://www.debian.org/license
  6. # DSA2nasl Convertor is copyright 2004 Michel Arboi
  7.  
  8. if (! defined_func('bn_random')) exit(0);
  9.  
  10. desc = '
  11. Javier Fernßndez-Sanguino Pe±a from the Debian Security Audit Project
  12. discovered that the DBI library, the Perl5 database interface, creates
  13. a temporary PID file in an insecure manner.  This can be exploited by a
  14. malicious user to overwrite arbitrary files owned by the person
  15. executing the parts of the library.
  16. For the stable distribution (woody) this problem has been fixed in
  17. version 1.21-2woody2.
  18. For the unstable distribution (sid) this problem has been fixed in
  19. version 1.46-6.
  20. We recommend that you upgrade your libdbi-perl package.
  21.  
  22.  
  23. Solution : http://www.debian.org/security/2005/dsa-658
  24. Risk factor : High';
  25.  
  26. if (description) {
  27.  script_id(16249);
  28.  script_version("$Revision 1.1$");
  29.  script_xref(name: "DSA", value: "658");
  30.  script_cve_id("CAN-2005-0077");
  31.  
  32.  script_description(english: desc);
  33.  script_copyright(english: "This script is (C) 2005 Michel Arboi");
  34.  script_name(english: "[DSA658] DSA-658-1 libdbi-perl");
  35.  script_category(ACT_GATHER_INFO);
  36.  script_family(english: "Debian Local Security Checks");
  37.  script_dependencies("ssh_get_info.nasl");
  38.  script_require_keys("Host/Debian/dpkg-l");
  39.  script_summary(english: "DSA-658-1 libdbi-perl");
  40.  exit(0);
  41. }
  42.  
  43. include("debian_package.inc");
  44.  
  45. w = 0;
  46. if (deb_check(prefix: 'libdbi-perl', release: '3.0', reference: '1.21-2woody2')) {
  47.  w ++;
  48.  if (report_verbosity > 0) desc = strcat(desc, '\nThe package libdbi-perl is vulnerable in Debian 3.0.\nUpgrade to libdbi-perl_1.21-2woody2\n');
  49. }
  50. if (deb_check(prefix: 'libdbi-perl', release: '3.2', reference: '1.46-6')) {
  51.  w ++;
  52.  if (report_verbosity > 0) desc = strcat(desc, '\nThe package libdbi-perl is vulnerable in Debian sid.\nUpgrade to libdbi-perl_1.46-6\n');
  53. }
  54. if (deb_check(prefix: 'libdbi-perl', release: '3.0', reference: '1.21-2woody2')) {
  55.  w ++;
  56.  if (report_verbosity > 0) desc = strcat(desc, '\nThe package libdbi-perl is vulnerable in Debian woody.\nUpgrade to libdbi-perl_1.21-2woody2\n');
  57. }
  58. if (w) { security_hole(port: 0, data: desc); }
  59.